10  HIMEM: 35070:ADRS = 35070: CALL ADRS: DEF  FN DG(H) = (H / 360 -  INT (H / 360)) * 360: DEF  FN D(H) =  FN DG( FN DG(H + 360)): DEF  FN RD(X) =  INT (X + .5): DEF  FN RN(X) =  INT ( RND (1) * X + 1): DEF  FN RF(X) = ((3700 - X) / 3700) ^ 2.86:VA$ =  CHR$ (129):VN$ =  CHR$ (142):VI$ =  CHR$ (137):VP$ =  CHR$ (144):VY$ =  CHR$ (153):VV$ =  CHR$ (150):VW$ =  CHR$ (151):VK$ =  CHR$ (139):VL$ =  CHR$ (140)

# all crewmembers dead?
 700  IF CM(0,0) <  = 0 THEN 9000

 800  POKE 2072,213: POKE 2073,170: CALL 2074: PRINT VY$;: VTAB (23): HTAB (38): PRINT VW$;: VTAB (2): HTAB (2): PRINT VV$;VI$;VP$;:Z$ = VA$ + "1" + VK$ + "E " + VA$ + "4": VTAB (3): HTAB (5): PRINT VA$4;"ENTER STATION:";
 810  PRINT VA$4VI$: FOR Z = 1 TO 7: IF CX(Z) THEN  VTAB (3 + 2 * Z): HTAB (7): PRINT "*";
 820  NEXT Z
 830 Z =  RND (1)
 870  VTAB (5): HTAB (10): PRINT Z$;"COMMUNICATION": VTAB (7): HTAB (10): PRINT Z$;"DEFENSE": VTAB (9): HTAB (10): PRINT Z$;"ENGINEERING": VTAB (11): HTAB (10): PRINT Z$;"LIFE SUPPORT": VTAB (13): HTAB (10)
 875  PRINT Z$;"NAVIGATION": VTAB (15): HTAB (10): PRINT Z$;"SCIENCE": VTAB (17): HTAB (10): PRINT Z$;"WEAPONS"
 940  VTAB (21): HTAB (10): PRINT Z$;"END OF TURN";: VTAB (19): HTAB (10): PRINT Z$;"END OF GAME";: VTAB (2): HTAB (25): PRINT "TURN: ";VN$VA$1;VL$;"    ";: VTAB (2): HTAB (32): PRINT DA;
# select station
 1000  FOR Z = 1 TO 9:Z(Z) = 3 + Z * 2: NEXT Z:Y = 10:Z = 9: GOSUB 41000: PRINT VA$0VN$VK$: ON X GOTO 2000,3000,4000,5000,6000,7000,10000,12000,9000: GOTO 1000
 2000  PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"COMMUNICATION": STOP 
 3000  PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"DEFENSE": STOP 
 4000  PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"ENGINEER": STOP 
 5000  PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"LIFESC": STOP 
 6000  PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"NAV": STOP 
 7000  PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"SCIENCE": STOP 
 9000 EN(11) = EN(11) + HW:AL(11) = AL(11) + HW: PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"TARGET"
 10000  PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"WEAPONSC": STOP 
 12000 EG = 1: GOTO 9000

### select menu item
 41000  REM 
 41006  PRINT VY$VA$1VK$VI$;:Z3 =  - 1: FOR Z2 = 1 TO Z: IF Z(Z2) > 0 AND Z3 > 0 THEN X1 = Z2: GOTO 41030
 41016  IF Z(Z2) > 0 THEN Z3 = Z2
 41020  NEXT Z2:X1 = Z3: GOTO 41180
 41030 Z1 = 250 / Z: FOR Z2 = 1 TO Z: HTAB (Y + 1): VTAB ( ABS (Z(Z2))): PRINT "E";: NEXT Z2
 41079 X =  INT ( PDL (0) / Z1 + .5): IF X > Z THEN X = Z
 41080  IF X < 1 THEN X = 1
 41081  IF Z2 > 20 THEN  HTAB (Y): VTAB ( ABS (Z(X1))): PRINT " ";: POKE 2048,X1 * 5 + 50: POKE 2049,15: CALL 2050:Z2 = 0: HTAB (Y): PRINT "L";
 41082 Z2 = Z2 + 1: IF X < 1 THEN X = 1
 41085  IF  PEEK ( - 16287) > 127 THEN 41180
 41090  IF Z(X) < 1 THEN  GOTO 41079
 41100  IF X1 <  > X THEN  HTAB (Y): VTAB (Z(X1)): PRINT " ";
 41105 X1 = X: HTAB (Y): VTAB (Z(X)): PRINT "L";: GOTO 41079
 41180  IF X1 < 1 THEN 41185
 41183  HTAB (Y): VTAB (Z(X1)): PRINT " F";
 41185  GOSUB 45000:X = X1: RETURN 

### chirp
 45000  POKE 2048,30: POKE 2049,30: CALL 2050: POKE 2048,80: POKE 2049,50: CALL 2050: RETURN